home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00229.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  415 b   |  16 lines
  1. on REDLEAN
  2.   global GRIDH, GRIDY, GRIDV, TB, TBB
  3.   set TB to 0
  4.   repeat while TB = 0
  5.     set TBB to random(139) + 1
  6.     if (getAt(GRIDV, TBB) = 3) and (getAt(GRIDV, TBB - 1) = 1) then
  7.       set the locH of sprite 29 to getAt(GRIDH, TBB)
  8.       set the locV of sprite 29 to getAt(GRIDY, TBB)
  9.       set the castNum of sprite 29 to 227
  10.       updateStage()
  11.       set TB to 1
  12.     end if
  13.   end repeat
  14.   REMOVESPRITE()
  15. end
  16.